home *** CD-ROM | disk | FTP | other *** search
/ The Adult Reference Library 1.a / The Adult Reference Library Volume 1.a.iso / start.bat < prev    next >
DOS Batch File  |  1993-02-12  |  4KB  |  167 lines
  1. @ECHO OFF
  2. ECHO OFF
  3. REM Do a spot-check on the files
  4. IF NOT EXIST INT.INF     GOTO MISSING
  5. IF NOT EXIST SEE.EXE     GOTO MISSING
  6. IF NOT EXIST SEE.INF     GOTO MISSING
  7. IF NOT EXIST GETKEY.EXE  GOTO MISSING
  8. IF NOT EXIST GETKEY.INF  GOTO MISSING
  9. IF NOT EXIST GO-MENU.EXE GOTO MISSING
  10. IF NOT EXIST GO-MENU.INF GOTO MISSING
  11. IF NOT EXIST AMAZE.TXT   GOTO MISSING
  12. IF NOT EXIST AMAZE.DOC   GOTO MISSING
  13. GOTO MAIN
  14.  
  15.  
  16. :MISSING
  17.   CLS
  18.   ECHO Your copy of  "The SEE Utilities"  is  incomplete.   You can download a
  19.   ECHO complete copy from the  Pinnacle Software Support BBS  at 514-345-8654,
  20.   ECHO or get a copy for $3 by writing to CP386 Mount Royal QC Canada H3P 3C6.
  21.   ECHO  
  22.   ECHO We will attempt to continue despite the missing files...
  23.   ECHO  
  24.   PAUSE
  25.  
  26.  
  27. :MAIN
  28.   GO-MENU START.MNU 0 SEEUTILS.MSV
  29.   IF ERRORLEVEL 10 GOTO QUIT
  30.   IF ERRORLEVEL  8 GOTO SHARMNU
  31.   IF ERRORLEVEL  6 GOTO IDEA
  32.   IF ERRORLEVEL  5 GOTO SVMNU
  33.   IF ERRORLEVEL  4 GOTO GETKDOC
  34.   IF ERRORLEVEL  3 GOTO MENUDOC
  35.   IF ERRORLEVEL  2 GOTO SEMNU
  36.   IF ERRORLEVEL  1 GOTO INTRO
  37.  
  38.  
  39. :INTRO
  40.   SEE INT.INF
  41.   GOTO MAIN
  42. :IDEA
  43.   SEE IDEA.INF
  44.   GOTO MAIN
  45.  
  46. :MENUDOC
  47.   CLS
  48.   ECHO █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
  49.   ECHO ▌ BY THE WAY:  The menu you just used was created with the GO-MENU utility! ▐
  50.   ECHO █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  51.   GETKEY Press a key to continue... @
  52.   SEE GO-MENU.INF
  53.   GOTO MAIN
  54.  
  55. :GETKDOC
  56.   CLS
  57.   GETKEY This is an example of GETKEY.  Do you want more information?  YN
  58.   IF NOT ERRORLEVEL 2 SEE GETKEY.INF
  59.   GOTO MAIN
  60.  
  61.  
  62. REM █▀█▀█▀█▀█▀█▀█▀█▀█▀█▀█▀█▀ START OF THE SHARMNU CODE ▀█▀█▀█▀█▀█▀█▀█▀█▀█▀█▀█▀█
  63.  
  64.  
  65. :SHARMNU
  66.   GO-MENU SHARE.MNU 4 SEEUTILS.MSV
  67.   IF ERRORLEVEL 10 GOTO MAIN
  68.   IF ERRORLEVEL  4 GOTO VENDOC
  69.   IF ERRORLEVEL  2 GOTO ORDER
  70.   IF ERRORLEVEL  1 GOTO AMZDOC
  71.  
  72.  
  73. :AMZDOC
  74.   SEE AMAZE.DOC
  75.   GOTO SHARMNU
  76. :ORDER
  77.   SEE AMAZE.TXT
  78.   GOTO SHARMNU
  79. :VENDOC
  80.   SEE VENDOR.DOC
  81.   GOTO SHARMNU
  82.  
  83.  
  84. REM █▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄▄ END OF THE SHARMNU CODE ▄▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█
  85.  
  86.  
  87. REM █▀█▀█▀█▀█▀█▀█▀█▀█▀█▀█▀█▀▀ START OF THE SEMNU CODE ▀▀█▀█▀█▀█▀█▀█▀█▀█▀█▀█▀█▀█
  88.  
  89.  
  90. :SEMNU
  91.   GO-MENU SEE.MNU 3 SEEUTILS.MSV
  92.   IF ERRORLEVEL 10 GOTO MAIN
  93.   IF ERRORLEVEL  3 GOTO SEESET
  94.   IF ERRORLEVEL  1 GOTO SEEDOC
  95.  
  96.  
  97. :SEEDOC
  98.   SEE SEE.INF
  99.   GOTO SEMNU
  100.  
  101.  
  102. :SEESET
  103.   CLS
  104.   ECHO █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
  105.   ECHO ▌                                                                           ▐
  106.   ECHO ▌  The SEESETUP program creates a configuration file  (named SEE.CFG).  If  ▐
  107.   ECHO ▌  you change any settings, you will be given the option to save them when  ▐
  108.   ECHO ▌  you exit SEESETUP.                                                       ▐
  109.   ECHO ▌                                                                           ▐
  110.   ECHO ▌  It is strongly recommended  that you do  NOT  change any settings until  ▐
  111.   ECHO ▌  you are thoroughly familiar with The SEE Utilities.                      ▐
  112.   ECHO ▌                                                                           ▐
  113.   ECHO █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  114.   GETKEY Press a key to continue... @
  115.   SEESETUP
  116.   GOTO SEMNU
  117.  
  118.  
  119. REM █▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄▄▄ END OF THE SEMNU CODE ▄▄▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█
  120.  
  121.  
  122. REM █▀█▀█▀█▀█▀█▀█▀█▀█▀█▀█▀█▀▀ START OF THE SVMNU CODE ▀▀█▀█▀█▀█▀█▀█▀█▀█▀█▀█▀█▀█
  123.  
  124.  
  125. :SVMNU
  126.   GO-MENU SV.MNU 1 SEEUTILS.MSV
  127.   IF ERRORLEVEL 10 GOTO MAIN
  128.   IF ERRORLEVEL  5 GOTO TRYSV
  129.   IF ERRORLEVEL  3 GOTO SVSET
  130.   SEE SV.INF
  131.   GOTO SVMNU
  132.  
  133.  
  134. :TRYSV
  135.   SV
  136.   GOTO SVMNU
  137.  
  138.  
  139. :SVSET
  140.   GO-MENU SETVIDEO.MNU 2 SEEUTILS.MSV
  141.   IF ERRORLEVEL 10 GOTO SVMNU
  142.   IF ERRORLEVEL  7 GOTO COL50
  143.   IF ERRORLEVEL  5 GOTO COL25
  144.   IF ERRORLEVEL  3 GOTO MON50
  145.   IF ERRORLEVEL  1 GOTO MON25
  146.  
  147.  
  148. :MON25
  149.   SV M OK
  150.   GOTO SVMNU
  151. :MON50
  152.   SV F OK
  153.   GOTO SVMNU
  154. :COL25
  155.   SV K OK
  156.   GOTO SVMNU
  157. :COL50
  158.   SV E OK
  159.   GOTO SVMNU
  160.  
  161.  
  162. REM █▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄▄▄ END OF THE SVMNU CODE ▄▄▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█▄█
  163.  
  164.  
  165. :QUIT
  166.   DONE
  167.